while(<>){chomp;@t=split(/\s+/);$c++;if($c>1){
$t[3]+=0;
if($t[3]<0){$pop{"0.00L"}++;$popl{"0.00"}.="$t[1],";}
if($t[3]>=0.0 && $t[3]<0.05){$pop{"0.05"}++;$popl{"0.05"}.="$t[1],";}
if($t[3]>=0.05 && $t[3]<0.1){$pop{"0.10"}++;$popl{"0.10"}.="$t[1],";}
if($t[3]>=0.1 && $t[3]<0.15){$pop{"0.15"}++;$popl{"0.15"}.="$t[1],";}
if($t[3]>=0.15 && $t[3]<0.2){$pop{"0.20"}++;$popl{"0.20"}.="$t[1],";}
if($t[3]>=0.2 && $t[3]<0.25){$pop{"0.25"}++;$popl{"0.25"}.="$t[1],";}
if($t[3]>=0.25 && $t[3]<0.3){$pop{"0.30"}++;$popl{"0.30"}.="$t[1],";}
if($t[3]>=0.3 && $t[3]<0.35){$pop{"0.35"}++;$popl{"0.35"}.="$t[1],";}
if($t[3]>=0.35 && $t[3]<0.4){$pop{"0.40"}++;$popl{"0.40"}.="$t[1],";}
if($t[3]>=0.4 && $t[3]<0.45){$pop{"0.45"}++;$popl{"0.45"}.="$t[1],";}
if($t[3]>=0.45 && $t[3]<=0.5){$pop{"0.50"}++;$popl{"0.50"}.="$t[1],";}
if($t[3]>0.5){$pop{"1"}++;$popl{"1"}.="$t[1],";}
else{$pop{"Total_Pop2"}++}
$t[2]+=0;
if($t[2]<0){$popo{"0.00L"}++;$poplo{"0.00"}.="$t[1],";}
if($t[2]>=0.0 && $t[2]<0.05){$popo{"0.05"}++;$poplo{"0.05"}.="$t[1],";}
if($t[2]>=0.05 && $t[2]<0.1){$popo{"0.10"}++;$poplo{"0.10"}.="$t[1],";}
if($t[2]>=0.1 && $t[2]<0.15){$popo{"0.15"}++;$poplo{"0.15"}.="$t[1],";}
if($t[2]>=0.15 && $t[2]<0.2){$popo{"0.20"}++;$poplo{"0.20"}.="$t[1],";}
if($t[2]>=0.2 && $t[2]<0.25){$popo{"0.25"}++;$poplo{"0.25"}.="$t[1],";}
if($t[2]>=0.25 && $t[2]<0.3){$popo{"0.30"}++;$poplo{"0.30"}.="$t[1],";}
if($t[2]>=0.3 && $t[2]<0.35){$popo{"0.35"}++;$poplo{"0.35"}.="$t[1],";}
if($t[2]>=0.35 && $t[2]<0.4){$popo{"0.40"}++;$poplo{"0.40"}.="$t[1],";}
if($t[2]>=0.4 && $t[2]<0.45){$popo{"0.45"}++;$poplo{"0.45"}.="$t[1],";}
if($t[2]>=0.45 && $t[2]<=0.5){$popo{"0.50"}++;$poplo{"0.50"}.="$t[1],";}
if($t[2]>0.5){$popo{"1"}++;$poplo{"1"}.="$t[1],";}
else{$popo{"Total_Pop1"}++}
}}
foreach (sort keys %popo) {print "$_,$popo{$_},$poplo{$_}\n"}
foreach (sort keys %pop) {print "$_,$pop{$_},$popl{$_}\n"}

